home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed39.d64 / game 3 test (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  138 lines
  1. 50 POKE53280,0:POKE53281,0:POKE53272,23:Y=1:K=0:W=0:C=0:R=0
  2. 100 PRINT"[147][155]            [215][200][195][160][197]NTERPRISES            ":GOSUB290:GOSUB240
  3. 105 PRINT"[159]                                        [146]";
  4. 110 PRINT"                                        [146]";
  5. 115 PRINT"        [199][201][204][204][201][193][206]'[211] [211][208][197][204][204][201][206][199] [199][193][205][197][211]        [146]";
  6. 120 PRINT"[159]                                        [146]";:GOSUB290:GOSUB240
  7. 125 PRINT"          * [194]EAT THE CLOCK!! *          [146]";
  8. 130 PRINT"[159]                                        [146]";:GOSUB290:GOSUB240
  9. 135 PRINT"                [199][193][205][197] # 3                [146]";
  10. 140 PRINT"[159]                                        [146]";
  11. 145 PRINT"                                        [146]"
  12. 150 GOSUB 291:GOSUB460
  13. 155 GOSUB320
  14. 160 PRINT"[147][153]  [201] WILL SHOW YOU A WORD WITH TWO
  15. 162 [153]"  MISSING LETTERS.
  16. 164 PRINT"  [217]OUR TASK IS TO PROVIDE THE CORRECTLY   SPELLED WORD.
  17. 166 [153]"  (null)HERE WILL BE TWENTY WORDS IN THIS      GAME.
  18. 168 PRINT"  [201]F YOU FAIL TO TYPE THE CORRECTLY
  19. 170 [153]"  SPELLED WORD YOU WILL BE AWARDED
  20. 172 PRINT"  ONE [150][194][204][207][207][208][197][210][153]."
  21. 174 PRINT"  [212]RY TO PLAY AS QUICKLY AS YOU CAN
  22. 176 [153]"  BECAUSE THIS IS A TIMEDPRINT GAME.
  23. 180 PRINT"  [204]ET'S SEE HOW GOOD YOU ARE!"
  24. 190 GOSUB291:GOSUB460
  25. 195 PRINT"[147][158] [193]ND AWAY WE GO.............."
  26. 197 GOSUB291:GOSUB200:GOSUB290:PRINT"[147]":GOSUB290:GOTO390
  27. 200 REM <YES> SOUND
  28. 202 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  29. 204 POKE54296,15:POKE54277,42:POKE54278,250
  30. 206 POKE54276,23:POKE54273,23:POKE54272,191
  31. 208 FORTM=1TO150:NEXT:POKE54276,32:FORTM=1TO250:NEXT
  32. 210 POKE54296,0:RETURN
  33. 220 REM <NO> SOUND
  34. 222 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  35. 224 POKE54296,15:POKE54277,18:POKE54278,242
  36. 226 POKE54276,33:POKE54273,4:POKE54272,48
  37. 228 FORTM=1TO300:NEXT:POKE54276,32:FORTM=1TO400:NEXT
  38. 230 POKE54296,0:RETURN
  39. 240 REM <BLIP> SOUND
  40. 242 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  41. 244 POKE54296,6:POKE54277,42:POKE54278,250
  42. 246 POKE54276,23:POKE54273,23:POKE54272,191
  43. 248 FORTM=1TO30:NEXT:POKE54276,32:FORTM=1TO50:NEXT
  44. 250 POKE54296,0:RETURN
  45. 260 REM <DING> SOUND
  46. 262 SS=54272:POKE54296,15:POKESS,50:POKESS+1,35:POKESS+2,0:POKESS+3,8:POKESS+5,0
  47. 264 POKESS+6,10*16+9:POKESS+4,14:POKESS+4,65:FORQQ=1TO20:POKESS+4,64:RETURN
  48. 270 REM <VERY WRONG> SOUND
  49. 272 SS=54272:POKE54296,15:POKESS,32:POKESS+1,3:POKESS+2,128:POKESS+3,13
  50. 274 POKESS+5,4*16+0:POKESS+6,10*16+8
  51. 276 POKESS+24,15:POKESS+4,65:FORQQ=1TO500:NEXT:POKESS+4,64:RETURN
  52. 290 FORTM=1TO600:NEXT:RETURN
  53. 291 FORTM=1TO1000:NEXT:RETURN
  54. 292 FORTM=1TO2000:NEXT:RETURN
  55. 293 FORTM=1TO3000:NEXT:RETURN
  56. 294 FORTM=1TO4000:NEXT:RETURN
  57. 300 PRINT"[147]":GOSUB290:PRINT"[155] [211]PELLING [199]AME #3               [201]TEM"Y
  58. 305 RETURN
  59. 310 REM       PRINT"[159]            ";A$"+[159]";B$"="Z$
  60. 320 PRINT"[147]":GOSUB290:RETURN
  61. 350 N=TI/60
  62. 355 N=INT(N+.5)
  63. 360 PRINT"[154]";N"SECONDS[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
  64. 365 RETURN
  65. 390 TI$="000000"
  66. 395 GOTO500
  67. 400 POKE53280,13:GOSUB290
  68. 402 PRINT"[153]                [195][207][210][210][197][195][212]!                [146]":GOSUB200:GOSUB292
  69. 404 PRINT"[145][145]                                        "
  70. 410 POKE53280,0:RETURN
  71. 420 POKE53280,2:GOSUB290
  72. 423 PRINT"[150]                   [206][207]!                  [146]":GOSUB270:GOSUB292
  73. 425 PRINT"[145][145]                                        ":RETURN
  74. 440 GOSUB291:POKE53280,13
  75. 445 PRINT"[145][145]> [153]";B$" ...[150] [207]H! [207]H! ... A [194][204][207][207][208][197][210]!"
  76. 450 GOSUB200:GOSUB294:GOSUB460:POKE53280,0:RETURN
  77. 460 GOSUB291:GOSUB260
  78. 462 PRINT"[154]      [208]RESS [211][208][193][195][197][160][194][193][210] TO CONTINUE       [146]"
  79. 464 GETR$:IFR$<>CHR$(32)THEN464
  80. 466 PRINT"[145][145]                                        ":RETURN
  81. 500 FORG=1TO20
  82. 510 FORI=1TO2:GOSUB300:GOSUB350:Y=Y+1:P=0:POKE53280,0
  83. 520 READA$,B$
  84. 530 PRINT"[159]  [212]HE MISSING LETTERS ARE EITHER          IE[159] OR EI[159].
  85. 535 [153]"  (null)HAT IS THE CORRECT SPELLING?
  86. 540 PRINT"* ";A$:GOSUB260
  87. 550 PRINT"[158]":INPUTZ$
  88. 560 IFZ$=B$THENGOSUB400:C=C+1:GOTO590
  89. 570 GOSUB420:W=W+1:GOSUB440
  90. 590 NEXTG
  91. 600 PRINT"[147]   [211][208][197][204][204][201][206][199][160][199][193][205][197] #3   [211][195][207][210][197][160][194][207][193][210][196]       [146]"
  92. 605 L=C*5:L=INT(L+.5)
  93. 610 PRINT"[158]          [217]OUR [211][195][207][210][197]...";L"%":GOSUB260:GOSUB292
  94. 615 PRINT"[158]          [217]OUR [212][201][205][197]....";N"SECONDS":GOSUB260:GOSUB292
  95. 620 PRINT"[153]          [195]ORRECT......"C:GOSUB200:GOSUB292
  96. 625 PRINT"[150]          [194]LOOPERS....."W:GOSUB230:GOSUB293
  97. 630 IFN=<250THENPRINT"          [217]OU ARE [198][193][211][212]!":GOSUB292:GOSUB636
  98. 632 IFN=<300THENPRINT"          [195]AN YOU GO [198]ASTER?":GOSUB292:GOSUB636
  99. 634 PRINT"             [201]'M  SURE YOUCAN GO FASTER.":GOSUB293
  100. 636 IFC=20THENPRINT"            [197][216][195][197][204][204][197][206][212][160][215][207][210][203]!   "
  101. 638 IFC=20THENGOSUB200:GOSUB292:GOTO660
  102. 640 IFC=>18THENPRINT"               [199]OOD [215]ORK "
  103. 642 IFC=>18THENGOSUB200:GOSUB292:GOTO660
  104. 650 PRINT" >>>>> [217]OU NEED MORE PRACTICE.
  105. 655 [153]" >>>>> (null)LEASE PLAY THIS GAME AGAIN."
  106. 660 [141]460
  107. 670 [153]"LOADSYS  (null)OU HAVE A CHOICE:
  108. 672 PRINT"  [208]RESS  [208] [146] TO PLAY [199]AME #3 [158]AGAIN."
  109. 674 PRINT"  [208]RESS  [205] [146] TO RETURN TO DISK MENU,
  110. 676 [161]R$:[139]R$[179][177]"P"[175]R$[179][177]"(null)"[175]R$[179][177]"M"[175]R$[179][177]"(null)"[167]676
  111. 678 [139]R$[178]"P"[167] [140]:[137]100
  112. 680 [139]R$[178]"(null)"[167] [140]:[137]100
  113. 682 [153]"LOAD (null)ETURNING TO THE DISK MENU
  114. 684 LOAD"MENU",8
  115. 686 RUN
  116. 688 END
  117. 1000 DATA "SH--LD","SHIELD"
  118. 1010 DATA "ACH--VE","ACHIEVE"
  119. 1020 DATA "C--LING","CEILING"
  120. 1030 DATA "CASH--R","CASHIER"
  121. 1040 DATA "TH--F","THIEF"
  122. 1050 DATA "MISCH--VOUS","MISCHIEVOUS"
  123. 1060 DATA "CONC--VE","CONCEIVE"
  124. 1070 DATA "CONSC--NCE","CONSCIENCE"
  125. 1080 DATA "RETR--VE","RETRIEVE"
  126. 1090 DATA "REPR--VE","REPRIEVE"
  127. 1100 DATA "FRONT--R","FRONTIER"
  128. 1110 DATA "Y--LD","YIELD"
  129. 1120 DATA "SK--N","SKEIN"
  130. 1130 DATA "W--NER","WIENER"
  131. 1140 DATA "SOVER--GN","SOVEREIGN"
  132. 1150 DATA "PAT--NT","PATIENT"
  133. 1160 DATA "L--TENANT","LIEUTENANT"
  134. 1170 DATA "FR--GHT","FREIGHT"
  135. 1180 DATA "ANC--NT","ANCIENT"
  136. 1190 DATA "F--RCE","FIERCE"
  137. 2000 REM WHC 92 09 05
  138.